home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CCOPY10.ZIP / CCOPY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-06  |  602 b   |  37 lines
  1. unit CCopy;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, Dialogs, Gauges, CCopyDlg;
  7.  
  8. type
  9.   TCCopyBox = class(TForm)
  10.     Panel1: TPanel;
  11.     Gauge: TGauge;
  12.     SourceLabel: TLabel;
  13.     TargetLabel: TLabel;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     BitBtn1: TBitBtn;
  17.     procedure BitBtn1Click(Sender: TObject);
  18.   private
  19.   public
  20.     bCancel : Boolean;
  21.   end;
  22.  
  23. var
  24.   CCopyBox: TCCopyBox;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TCCopyBox.BitBtn1Click(Sender: TObject);
  31. begin
  32.   bCancel := true;
  33. end;
  34.  
  35. end.
  36.  
  37.